Top 10k strings from Snooker Management (1989)(D&H Games)[a].z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [Z80] /
Back to the directory listing
3 T(TU,TH)=Z
3 A(WR,I)=A(WR,I)-(A(WR,I)>
3 "99")+(A(WR,I)<
3 "99")*(A(WR,I)-
3 "25";"`";R1:
3 "21",Z;V$:
2 WR<(NUM+O)
2 MON=MON-EX:
2 INC=INC+R1
2 F$="ENTER PLAYER NUMBER ":
2 CL=CL+(BL=
2 C=C-(C> TH)*(C-TH):
2 AD-AC>PNTL
2 AC-AD>PNTL
2 (OFF*R1)*T:
2 "SNOOKER_SG":
2 "32",N,N,N,
2 "19",Z;"ADMINISTRATION EXPENSES `";EX:
2 "13",T;"GAME ORGANISED AGAINST :-":
1 xpGGGxxx
1 x```xx8888x```ggg`xx````ggg````
1 Z;"RUNNER UP : ";A$(D(PL,RD-O,O))
1 Z;"PRIZE MONEY"
1 Z;"MONEY `";MON:
1 Z;"FRAME SCORE";
1 Z9+"."+H$(RC)+M$(RB)+H$(RE)+E$(RA):
1 Z(T)=D(R1,RD,O):
1 Z(O)=D(R1-O,RD,O):
1 Z$=W$(PL1):
1 Y$=W$(HP):
1 W(T,I)=O(I):
1 W(Q,I)=A(Z(Q),I):
1 W(O,I)=A(WR,I):
1 W(I,Q)=W(I,Q)+((W(I,FI)-FI)/TH):
1 W(I,Q)=W(I,Q)+((W(I,F)-S)/F):
1 W$(T)=A$(Z(T))
1 W$(O)=A$(Z(O)):
1 U$=("ROUND "+
1 U$=("QTR-"
1 TR=T)+"FINAL"
1 TR=T)+"FINAL OPPONENT -":
1 TR=O)+("SEMI-"
1 TN;AA;" : ";AB
1 TN;"PRIZE MONEY":
1 TN;"LOAN SHARK";
1 TN,Z;"TOTAL STAKE SO FAR `";R1;
1 TN,T;"YOU MAY CANCEL THIS BUT WILL"'"HAVE TO PAY HALF THE PRIZE MONEY"'
1 TN,T;"YOU MAY CANCEL BUT WILL HAVE"'"TO FORFEIT THE FEE PAYED TO THE";
1 TN,T;"TO PULL OUT OF THE TOURNAMENT YOU HAVE TO FORFEIT EXPENSES AND";
1 TN,O;"YOU ENQUIRE AS TO WHETHER YOU
1 TN,FI;"DECIDES TO PLAY A SAFTEY"
1 TN+O;"(49.4% PA)"
1 TN+O,Z;"CURRENT WIN PERCENTAGE ";WPER;"%"
1 TH;"YOUR BOY SACKS YOU AS HIS";
1 TH;"FUTURE TOURNAMENT NUMBERS":
1 TH,Z;"YOUR BOY HAS WON THE TOURNAMENT";
1 T;"YOU ARE LATE WITH LOAN SHARK"'"REPAYMENT AND YOUR BOY IS BEATEN UP HE CANNOT PLAY OR TRAIN FOR";
1 T;"RESET TRAINING TIMES WHEN";
1 T;"PLAYED OVER BEST OF ";FR;" FRAMES":
1 T,Z;"ODDS ARE AS FOLLOWS -"
1 T,T;("SEMI-"
1 T,SE,TH,S,FI,F,E,O
1 T(TU,TH)=O
1 T(RA,TH)=T
1 T(RA,TH)=O:
1 T(I,TH)=T);:
1 T(I,TH)=O)+("N"
1 T(I,O)=T(D,O)
1 ST=ST+Q+TH:
1 SEA=SEA+O:
1 SE;HB;" BY ";W$(HP):
1 SE;"SET ";N$;" WAGE";
1 SE;"INCOME"''
1 SE;"EXPENDITURE"''
1 SE;"END OF SEASON NEWS";
1 SE;"AND COLLECTED `400":
1 SE,S;"POSITIONAL PLAY:";
1 SE,FI;"2. ARRANGE CLUB GAME"
1 S;"WEEKLY FINANCES":
1 S;"WEEKLY ";("LOSS"
1 S;"BEST OF ";FR;" FRAMES"
1 S;"AS A DEFAULT PAYMENT";
1 S;" : ";
1 S.DAVIS J.WHITE S.HENDRY N.FOULDS C.THORBURN J.JOHNSON T.GRIFFITHST.KNOWLES DN.TAYLOR A.HIGGINS S.FRANCISCOW.THORNE R.WILLIAMS J.PARROTT D.MOUNTJOY D.REYNOLDS M.HALLETT C.WILSON P.FRANCISCOJ.VIRGO T.MEO
1 S,O;"WORLD RANK ";Q$;
1 RL> T)+("QTR-"
1 RL=TRD-RD:
1 RL=T)+("SEMI-"
1 RL=O)+("FINAL"
1 RA=RA+(SE*RA)+
1 RA=RA+(RA< F)*(F-RA):
1 RA=((AB-AA)*
1 RA=((AA-AB)*
1 RA;" AGAINST":
1 RA+RE+O,RB;"
1 RA+I,RB+RC+O;"
1 R5=D(I,R1,T):
1 R4=D(R2+O,R1,O):
1 R3=D(R2,R1,O):
1 R3=A(I,Q):
1 R1=TH+(TR-O):
1 R1=R1+B(I,T):
1 R1=R(SWN):
1 R1=D(I,O,O):
1 R1=A(SWN,I):
1 R1=(Q*T)-O:
1 R1=((PLO+(WL/
1 R1-O)+Q$(R2+O
1 R(SWN)=R(WR):
1 R(P2)=R(P2)+PTS
1 R(P1)=R(P1)+PTS
1 R(I+O)=R3:
1 R(I)=R(I+O):
1 R(I)=R(I)-(R(
1 R(I)< R(I+O)
1 R(D(O,TRD+O,O))=R(D(O,TRD+O,O))+S:
1 R$=T$(TU):
1 R$="CLUB TOURNAMENT"
1 R$="CLUB GAME":
1 R$="CELEBRITY MATCH":
1 Q$=A$(SWN):
1 PRF=INC-EPS:
1 PRF< Z)+("PROFIT"
1 PM=P((TRD+TH)-YR)+(P(O)
1 PL=PL-(PL=T)+(PL=O):
1 P2=W(T,O)+W(T,T)+W(T,TH)
1 P2=D(Q+O,I,O):
1 P2=(P2*S)-
1 P1=W(O,O)+W(O,T)+W(O,TH):
1 P1=D(Q,I,O):
1 P1=(P1*S)-
1 OFF=AA-HI:
1 O;G(Q,O);"/1"
1 O;A$(G(Q,T));:
1 O;'"ROUND ";R1'':
1 O;"YOUR BOY - INJURED - ";WO;" WEEKS OUT"
1 O;"YOU HAVE NO RESERVE LEFT":
1 O;"YOU ALREADY HAVE MADE THESE":
1 O;"WORLD RANKINGS":
1 O;"WINNER : ";A$(D(O,RD,O))''
1 O;"WEEK :";WK;
1 O;"W WAGES P PERCENTAGE"
1 O;"TRY AGAIN ? Y OR N"
1 O;"TOURNAMENTS";
1 O;"STAKES TO DATE - ":
1 O;"P PLACE BET M MENU"+(" O OTHERS"
1 O;"P PAY OFF B BORROW M MENU"
1 O;"NEXT MATCH"'''
1 O;"MATCH REFUSED ALREADY":
1 O;"MATCH ALREADY PLAYED":
1 O;"MATCH ALREADY ORGANISED":
1 O;"MANAGER YOU HAVE SOLD TO MUCH";
1 O;"M MENU C CHANGE"
1 O;"I INCREASE OVERDRAFT M MENU"
1 O;"HOURS P/W"
1 O;"HIGHEST BREAK";
1 O;"DO YOU ACCEPT ? Y OR N
1 O;"DIVIDE 25 HOURS BETWEEN PARTS"
1 O;"CONGRATULATIONS, YOU HAVE";
1 O;"CANCEL Y/N"
1 O;"C CHANGE O OTHERS M MENU"
1 O;"C CHANGE M MENU"
1 O;"1 THE WHOLE MATCH";
1 O;" ";W$(O);" ";
1 O(I)=A(R1,I):
1 O$=A$(R1):
1 N;"WORLD RANKINGS";
1 N;"BANK DETAILS";
1 N,Z;T$(Q);
1 N,Z;"RUNNER UP";
1 N,Z;"CURRENTLY IS PAID `";WG;" PER WEEK"
1 N,T;"HOWEVER YOU ALREADY HAVE ALL"''
1 N,S;"SAFETY PLAY :";
1 N,O;"YOU HAVE NOT ARRANGED A MATCH";''
1 N,O;"DUE TO YOUR WORLD RANKING YOU";
1 N,FI;"3. TOURNAMENT"
1 MON=MON-OFF:
1 MON=MON-EX
1 MON=MON-(EX+
1 MON=MON+Q:
1 MON=MON+PRF:
1 MON=MON+OFF:
1 M$="AEIOU":
1 K(I)=-K(I):
1 INC=INC+PM
1 INC=INC+ITR
1 INC=INC+GM
1 I+T,Z;A$(G(B(I,O),T));:
1 I+SE,O;Q$;
1 HI=Z+(AC> AD)*AC+(AC< AD)*AD:
1 H$="BCDFGHJKLMNPRSTVW":
1 GM=GM+B(I,T)+(B(I,TH)*B(I,T))
1 G(R1,O)=ODD:
1 G(I,T)=D(O,TRD+O,O)
1 G(I,T)=D(G(I,T),O,O):
1 G(I,O)+"/1":
1 FI;"ROLL OF HONOUR":
1 FI;"OF HIS FUTURE WINNINGS":
1 FI;"CONTRACT FOR NEXT YEAR":
1 FI;"BOOKED"
1 FI,Z;"ALREADY IN DEBT BY `";LW
1 FI,TH;"BEEN GIVEN A PHONE NUMBER"
1 FI,T;"YOUR BOY SIGNS NEW ONE YEAR";
1 FI,S;"POTTING
1 FI,FI;"1. PLAY A CELEBRITY"
1 F;"FOR THIS WEEK ";
1 F,Z;"LOAN SHARK INTEREST";
1 F,Z;"CURRENT ACCOUNT";
1 F,TH;W$(O);
1 F,TH,T,O,Z
1 F$=F$+" B BUY"
1 F$="YOU HAVE ALREADY BEEN REFUSED":
1 F$="YOU DO NOT HAVE THIS NUMBER":
1 F$="TOURNAMENT ALREADY BOOKED":
1 F$="THIS NUMBER DOES NOT EXIST":
1 F$="S SELL M MENU":
1 F$="REPLACE WITH ":
1 F$="POT ":
1 F$="POSITION ":
1 F$="PLEASE ENTER AMOUNT `":
1 F$="NEW WORLD RANKINGS ARE PUBLISHED":
1 F$="ENTER STAKE (0 IGNORE) ":
1 F$="ENTER PHONE NO.(0 MENU) ":
1 F$="ENTER NEW FIGURE ":
1 F$="ENTER % TO SELL "
1 F$="ENTER % TO BUY ":
1 F$=" PRESS ANY KEY TO CONTINUE ":
1 EPS=EPS-ITR
1 EPS=EPS+YBP
1 EPS=EPS+TK
1 EPS=EPS+R2
1 EPS=EPS+R1
1 EPS=EPS+PO
1 EPS=EPS+LM
1 EPS=EPS+ITR:
1 E;A$(G(I,T));:
1 E,Z;"% OF FUTURE WINNINGS SOLD - ";FP;"%"
1 E,T;"YOUR BOY WILL NOT SIGN A NEW";
1 E,T;"INTEREST RATE 0.95% PER WEEK";
1 D(R2+T,R1,O)=Z
1 D(R1-O,RD,T)=AA:
1 D(R1,RD,T)=AB
1 D(R1+O,RD,O)=Z
1 D(Q,RD+O,O)=R1
1 D(Q,I,T)> D(Q+O,I,T)
1 D(Q,I,T)< D(Q+O,I,T)
1 D(Q,I,O)=YN
1 D(O,RD,O)=D(T,RD-O,O)
1 D(MH,RD+O,O)=Z(T):
1 D(MH,RD+O,O)=Z(O):
1 D(((I-O)*R1)
1 CO=T+(BA=T)*F+(BA=TH)*T-(BA=FI)+(BA=S)-(BA=SE)*T:
1 CF=W(PL,TH)+(W(PL,O)/T)+(W(PL,T)/T):
1 CF=W(PL,TH)*T:
1 CF=W(PL,O)+(W(PL,T)/T)+(W(PL,TH)/T):
1 BL=BL+(BA=O):
1 BA=BA-(BA> SE)*(BA> SE)*(BA-SE):
1 B(I,TH)=G(Q,O)
1 B(I,T)=SK:
1 B$(TH,SE):
1 AD=AD+(PL=O)*RA
1 AC=AC+(PL=T)*RA:
1 AB=AB-OFF:
1 AB = AB +( AD> AC):
1 AA=AA-OFF:
1 AA = AA+ ( AC > AD):
1 A(WR,I)=R1:
1 A(WR,I)=A(WR,I)-RA:
1 A(WR,I)=A(WR,I)+RA:
1 A(WR,I)=A(WR,I)+
1 A(WR,FI)=(
1 A(SWN,I)=A(WR,I):
1 A(I,R1)=A(I,R1)+
1 A(I,Q+TH)>
1 A(I,Q+TH)=F
1 A(I,Q+TH)=
1 A(I,Q+TH)<F
1 A(I,Q)=A(I+O,Q):
1 A(I,FI)=A(I,FI)-O+
1 A(I,FI)=A(I,FI)+
1 A(I,F)=A(I,F)-O+
1 A(I,F)=A(I,F)+
1 A(I+O,Q)=R3:
1 A$(WR)=Z$:
1 A$(WR)=Q$:
1 A$(SWN)=A$(WR):
1 A$(I+O)=Q$:
1 A$(I)=A$(I+O):
1 ;"YOUR BOYS NAME (MAX 11 CHARS)":
1 ;"ENTER Y OR N"
1 ;"ENTER SELECTION
1 8HOOxx88889HOyxxx888
1 7",Z;"YOUR SHARE OF PRIZE MONEY `25":
1 *T)+R1)*TN:
1 *(W(PL,T)+F)):
1 *(R2+T))+O> R1
1 *(P2*F)))+
1 *(P1*F)))+
1 (Z$)=T(I,O)
1 (WG+(PM*(WPER/
1 (FR/T))+O:
1 (FP+WPER)>
1 (A(WR,O)+A(WR,T)+A(WR,TH)/
1 (A$(Q)=N$);
1 ((R1-OVF)/SE):
1 ((ODD/(R4/
1 ((((WK/FI)*
1 ''"OVERDRAFT FACILITY";
1 '"WINNER";
1 '"HIGHEST BREAK";
1 "WORLD CHAMPIONSHIP",
1 "WELSH CHAMPIONSHIP",
1 "TV ADDS & PROMOTIONS";
1 "TUBORG WORLD CUP",
1 "TRAVELLING EXPENSES",
1 "TENNENTS UK OPEN",
1 "TAX & VAT PAYMENTS";
1 "SOUTH AFRICAN CHAMP.",
1 "SCOTTISH CHAMPIONSHIP",
1 "ROTHMANS GRAND PRIX",
1 "RED ","YELLOW","GREEN ","BROWN ","BLUE ","PINK ","BLACK "
1 "PRIZE MONEY";
1 "PRIZE MONEY % SOLD";
1 "POTTING","POSITIONAL","SAFTEY PLAY","CONSISTENCY","FORM"
1 "POT ","SAFTEY ","SNOOKER"
1 "PAYMENTS TO YOUR BOY";
1 "PAID OUT PRIZE MONEY";
1 "NEXT TOURNAMENT :-"''
1 "MERCANTILE CREDIT",
1 "LANG SCOTTISH MASTERS",
1 "IS THAT OK.":
1 "IRISH CHAMPIONSHIP",
1 "HOTEL BILLS",
1 "HOFMEISTER WORLD CUP",
1 "GENERAL EXPENSES",
1 "GAMBLING WINS";
1 "GAMBLING STAKES";
1 "FINE YOUR BOY - ROWDIE";
1 "EQUIPMENT COSTS",
1 "ENGLISH CHAMPIONSHIP",
1 "DULUX BRITISH OPEN",
1 "DEN","NS","RY","EY","ON","WAY","LE","BY","INS","LEY","SON","TON","S","ES","MAN","BLE","NEY","SEY","TER","IS","ER","ENS","DON","ING","GAN","LIN"
1 "CARLSBERG CHALLENGE",
1 "CANADIAN CHAMPIONSHIP",
1 "BCE INTERNATIONAL",
1 "BCE CANADIAN MASTERS",
1 "BANK INTEREST";
1 "B&H MASTERS",
1 "B&H IRISH MASTERS",
1 "AUSTRALIAN CHAMP.",
1 "8900"+(FI*R2):
1 "735"+(Q$="2")*FI+(Q$="1")*
1 "7";"Load OLD game Y/N"
1 "6210"+(AA+AB=O)*
1 "6030"+(C*TN)
1 "6000",E,N,N,
1 "6";"Start OLD game tape":
1 "5900"+(PL=T)*
1 "5670"+(B=O)*
1 "50"-WR)*FI))
1 "50"-(SN=O)*
1 "49"-(SN=O)*
1 "4218",E,N,
1 "40"-R3)+((TN-R2)*TH)+(R1*T)):
1 "40"+(B=TH)*
1 "4.5")/MP)*
1 "34"-L))*FI
1 "34"-L)))*FI:
1 "33",S,T):
1 "33",FI)=F:
1 "33",F)=F:
1 "33")=A$(I)
1 "32"-Z(T))/TH):
1 "32"-Z(O))/TH):
1 "32"+(YM=Z):
1 "32")+" ROUND LOSERS";
1 "26";"PLAYED"
1 "2500",E,N,
1 "25";"`";YBP:
1 "25";"`";TK:
1 "25";"`";R2:
1 "25";"`";PO:
1 "25";"`";PM:
1 "25";"`";LM:
1 "25";"`";ITR:
1 "25";"`";ITR
1 "25";"`";GM:
1 "25";"`";B(I,T):
1 "25";"`";B(I,T)
1 "25";"`";:
1 "25";"`";(
1 "25"-K(O)-K(T):
1 "25"-K(O))
1 "25"+(Q$="3")*
1 "23689"))+TH)>
1 "23658",E:
1 "23";B$(B):
1 "2250",E,N,N,
1 "22";"`";OVF
1 "22";"`";MON
1 "21";"EVENS":
1 "21"-TU))+TU:
1 "21",RA;F$:
1 "21",I+SE;
1 "21",BL+E;" "
1 "200"+OVF+
1 "20";D$(BA);
1 "20";"TOURNAMENT";
1 "20";"BREAK ";ZX;
1 "20",TH;"2 THE FINAL SCORE"
1 "2")=A(WR,
1 "19";A$(R4);
1 "19",O;Z$:
1 "19",E;"BEST OF ";FR;" FRAMES"
1 "18";W$(T);
1 "18";W$(T):
1 "18";"RANKING PTS"
1 "18",Z;"LOAN LIMIT IS `200,000":
1 "18",Z;"INCREASED TO `";R1:
1 "18",Z;"BANK MANAGER REFUSES TO INCREASE":
1 "18",O;"YOUR MANAGEMENT REIGN IS OVER":
1 "18",O;"SEASON:";SEA+O;
1 "18",O;"BREAK ";ZZ;
1 "17";"WORLD RANK ";Z$
1 "17";" ";W$(T);" "
1 "17",Z;"PLAYING FOR `";YM''"ADMINISTRATION EXPENSES `";EX:
1 "17",Z;"FEE TO CELEBRITY `";EX:
1 "17",Z;"1ST ROUND LOSERS";
1 "17",O;"HIGHEST";
1 "16",Z;"ONLY 5 INDIVIDUAL BETS ALLOWED."
1 "16"*(I+O)):
1 "16")+("2ND"
1 "150"+(I*TN):
1 "15";"EVENS":
1 "15",Z;("1ST"
1 "15",Z;"YOU MUST PAY `";OFF;" FOR ";R1;"%"
1 "15",Z;"YOU ARE OFFERED `";OFF;" FOR ";R1;"%"
1 "15",Z;"PHONE THIS NUMBER TO BOOK IN."''"TIME YOUR CALL CAREFULLY.":
1 "15",Z;"DO YOU WISH TO SEE :-"
1 "15",SE;R$
1 "15",O;ZX;" BY ";Y$:
1 "15",O;"TOURNAMENT OFFICIALS SAY : ";
1 "15"+(C=T)*FI+(C=TH)*N)+(SN=O)*
1 "15");"V";
1 "15")-(RA=
1 "15")-(RA<
1 "15")*T +(B=Z):
1 "14";B(I,TH);"/1";
1 "14";"EVENS";
1 "14",Z;"MAXIMUM STAKE TOTAL IS `10,000.";
1 "14",Z;"CURRENT WEEKLY INTEREST `";
1 "14",S;W$(PL);" CONCEEDS":
1 "14",S;"BONUS PHONE NUMBERS"
1 "14",N;"FOUL ";:
1 "14",E;"THIS TOTALS `";
1 "13";WO-O;" WEEKS"''
1 "13";"Y PRIZE MONEY";
1 "13";"WORLD RANKING ";AWR
1 "13";"W WAGES";
1 "13";"T TRAINING";
1 "13";"S SAVE"
1 "13";"R ROUNDS";
1 "13";"P PERCENTAGE";
1 "13";"O WORLD RANKINGS";
1 "13";"N NEXT MATCH";
1 "13";"L LOAN SHARK";
1 "13";"HIGH";
1 "13";"HAVE";
1 "13";"G GAMBLE"
1 "13";"FRAMES";
1 "13";"FRAME";
1 "13";"F FIX MATCH";
1 "13";"C MATCH";
1 "13";"B BANK";
1 "13";"A TOURNAMENTS"
1 "13",Z;"QUARTER FINAL LOSERS";
1 "13",T;"1ST ROUND OPPONENT -":
1 "13"+(R5< TN);R5;
1 "129",Z,Z,Z,Z,
1 "12";"SNOOKERED":
1 "12";"SNOOKERED"
1 "12";"MISSED":
1 "12";"GAMBLE";
1 "12";"CONTRACT";
1 "12",Z;"HIGHEST BREAK":
1 "12",TN;C$(C);
1 "12",N;"REMAINING `";(
1 "12"+I,E;Q$;
1 "12");"TRAINING";
1 "11";W$(PL):
1 "11";"WEEKLY NEWS";
1 "11";"RECOVERED":
1 "11";"PERCENTAGE";
1 "11";"FIX MATCH";
1 "11";"CELEBRITY":
1 "11";"BREAK(";ZY;") ";
1 "11",Z;"SEMI-FINAL LOSERS";
1 "11",Z;"PHONE NO.";T(Q,O)
1 "11",O;"YOU MAY PLAY ONE MATCH A WEEK":
1 "11")+TN)*FI:
1 "1000",E,N,
1 "100"-AWR)/FI))*
1 "1",R1,T):
1 ".00225"):
1 YOU CANNOT AFFORD THIS
1 P L E A S E W A I T
1 M.MACLEOD S.LONGWORTHT.DRAGO
1 K.STEVENS J.CAMPBELL E.HUGHES DV.TAYLOR E.CHARLTON D.MARTIN J.SPENCER B.WEST
1 CAN ENTER YOUR BOY"
1 "BANK INTEREST";
1 ","DIFFICULT","HARD